(defun c:itrl()

  
	(IF LAYENTMAKE NIL(LOAD "MKLAYR" "\nFile MKLAYER.LSP NOT LOADED"))
  	(IF UPOINT NIL(LOAD "UPOINT" "\nFile UPOINT.LSP NOT LOADED"))

  	(setq oldosmode (getvar "osmode"))
  	(setvar "osmode" 520)
  
  	(LAYENTMAKE "C-BLDG7SYMB" "7" "CONTINUOUS")

  	(setq offset_distance (getreal "Offset Distance: "))

  
  	(setq offset_direction (getstring "(R)ight or (L)eft: "))

  	(setq offset_direction (strcase offset_direction))


	(if (= offset_direction "L" )

		(setq offset_distance (+ offset_distance 15.0))

	  	  
	)
  
  
  	(setq insertion_pt (upoint 1 "" "Select Insertion Point" nil nil))
	(setq rotation_pt (upoint 1 "" "Select Point for Rotation Angle (Ahead on Stations)" nil nil))
  	(setq myangle (angle insertion_pt rotation_pt))

  	(command "insert" "trailer" insertion_pt 50 50 rotation_pt)

	(if (= offset_direction "R" )

		(setq offset_myangle (- myangle 1.57))

	  	(setq offset_myangle (+ myangle 1.57))	  
	  
	)
	
  
  	(setq new_pt (polar insertion_pt offset_myangle offset_distance))

  	(command "move" "l" "" insertion_pt new_pt)
  	(setvar "osmode" oldosmode)
  
  


	;(setq myangle (angle insertion_pt rotation_pt))
  	;(setq myangle (+ myangle 1.57))
  	;(setq my_direction (upoint 1 "" "Select Point for Offset Direction" nil nil))

  	;(setq offset_dir (angle insertion_pt rotation_pt))
  	
    	;(command "insert" "school" insertion_pt 50 50 rotation_pt)
	;(command "move" "l" "" insertion_pt offset_distance )
  


  	;(setq oldosmode (getvar "osmode"))
  	;(setvar "osmode" 520)
  	;(command "insert" "school" (setq mypoint (getpoint)) 50 50 (getpoint))
	;(command "move" "l" "" mypoint (getpoint))
        ;(setvar "osmode" oldosmode)
	;(command "change" "L" "" "P" "la" "c-bldg7symb" "")
  
	
)